16 POKE53281,0:PRINT"[147]":GOSUB404
18 F$="CONJOB.O"
20 POKE147,0:SYS57812F$,8,1:SYS62631
22 POKE56,32:CLR
24 L$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
26 GH$="[147]"
28 REM MAIN MENU
32 POKE53280,0:PRINT"[147][155]";:GOSUB158
34 PRINTSPC(9)M1$:PRINTSPC(9)"[221] [159][195] [207] [206]  [193] [210] [212] [201] [211] [212] [155][221]
36 [153][166]9)"(null)  OPENSTR$AVE (null). (null)ATTHEWS  LIST(null)":[153][166]9)M2$
38 [153][166]9)"(null)  (null) ATN RIGHT$ (null)  (null) VAL (null) (null)  WAIT(null)":[153][166]9)M2$
40 [153][166]9)"(null)  (null)WAITLISTOAD (null)EW (null)ICTURE  (null)":[153][166]9)M2$
42 [153][166]9)"(null)  CLR(null)WAITLISTAVE (null)ICTURE ATNS...(null)":[153][166]9)M2$
44 [153][166]9)"(null)  OPEN(null)WAITLISTIEW (null)ICTURE      (null)":[153][166]9)M2$
46 [153][166]9)"(null)  SYSSTR$WAITLISTIRECTORY         (null)":[153][166]9)M2$
48 [153][166]9)"(null)  (null)LISTWAITUIT TO (null)(null)ATNSTR$(null)(null)ATN(null)  (null)":[153][166]9)M3$
50 T[178]9: [141]166
52 [141]202
54 [139] (KY$[178]"(null)"[176]KY$[178]"L")[167][141]72:[137]32
56 [139] (KY$[178]"(null)"[176]KY$[178]"S")[167][141]86:[137]32
58 [139] (KY$[178]"(null)"[176]KY$[178]"V")[167][141]100:[137]32
60 [139] (KY$[178]"STR$"[176]KY$[178]"D")[167][141]148:[137]32
62 [139] (KY$[178]"(null)"[176]KY$[178]"Q")[167]394
64 [137]52
68 [143] LOAD
72 T[178]16:T$[178]"(null)OAD WHICH TYPE:":[141]172:[141]166
74 KY$[178]"":[141]202:[141]184:[145]Z[137]222,232,242,252,78
76 [137]74
78 [142]
82 [143] SAVE
86 T[178]2:T$[178]"(null)AVE PICTURE AS:":[141]172:[141]166
88 KY$[178]"":[141]202:[141]184:[145]Z[137] 262,276,290,304,92
90 [137] 88
92 [142]
96 [143] VIEW PICTURE
100 [151]53280,0:[151]53281,0:[153]"LOADORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
102 [153]"(null)SYS   (null)RESS A KEY TO VIEW THE PICTURE   WAITLIST(null)"
104 [153]L$
106 [153]"(null)SYS   (null)VAL(null)(null)(null)(null) KEY EXITS TO (null)ATNRIGHT$(null) (null)ENU     WAITLIST(null)"
108 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
110 [153]"FOR  (null)HILE THE PICTURE IS ON THE SCREEN":[153]"  PRESS THE FOLLOWING:LIST"
112 [153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
114 [153]"(null)PRINTASC1-(null)VAL(null)WAIT (null)O VIEW PICTURE AS LEFT$RIGHT$(null)VAL(null)      LIST(null)"
116 [153]L$:[153]L$
118 [153]"(null)PRINTASC3-(null)VAL(null)WAIT (null)O VIEW PICTURE AS (null)(null)(null)(null)RIGHT$LEN(null)(null)(null)(null) LIST(null)"
120 [153]L$:[153]L$
122 [153]"(null)PRINTASC5-(null)VAL(null)WAIT LENHANGE PEEKATNLEN(null)CHR$(null)(null)(null)(null)STR$ COLOR       LIST(null)"
124 [153]"(null)PRINT(null)(null)(null)VAL: WAIT LEFT$AS NO EFFECT IN LEFT$RIGHT$(null)VAL(null) (null)ODE   LIST(null)"
126 [153]L$:[153]L$
128 [153]"(null)PRINTASC7-(null)VAL(null)WAIT (null)O CHANGE PEEK(null)(null)STR$VAL(null) COLOR        LIST(null)"
130 [153]L$:[153]L$
132 [153]"(null)PRINT(null)VAL(null)(null)(null)(null)WAIT VALXITS FROM VIEWING PICTURE    WAITLIST(null)"
134 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
136 [141]202:[139] KY$[179][177][199](13)[167][158]49300:[137]100
138 [153]"LOAD";:[142]
144 [143] DIRECTORY
148 [158] 49191:[141]212:[139]E$[178]"OK"[167][141]386
150 [142]
154 [143] PRINT SUB MENU
158 M1$[178]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^":M2$[178]"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<"
162 M3$[178]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP":DN$[178]""
164 [142]
166 [153][166]T)M1$:[153][166]T)"(null)    OPEN(null)RESS A KEY     LIST(null)":[153][166]T);
167 [139]T[178]16[167][153]"(null) OPEN(null), ATN, (null), STR$ OR (null)VAL(null)  LIST(null)":[137]169
168 [153]"(null) OPEN(null), (null), (null), STR$ OR (null)VAL(null)  LIST(null)"
169 [153][166]T)M3$:[142]
170 :
172 [153]DN$[166]T)M1$:[153][166]T)"(null)  "T$"  WAIT(null)":[153][166]T)M2$
174 [153][166]T)"(null)  (null)LISTWAITOALA (null)AINTER     (null)":[153][166]T)M2$
176 [153][166]T)"(null)  ATNLISTWAITDV. ATNRT (null)TUDIO   (null)":[153][166]T)M2$
178 [153][166]T)"(null)  OPEN(null)WAITLISTLEN(null) ATNRT (null)TUDIO    (null)":[153][166]T)M2$
180 [153][166]T)"(null)  FORSTR$WAITLIST(null)(null)STR$(null)VAL!           (null)":[153][166]T)M2$
182 [153][166]T)"(null)  SYS(null)VAL(null)(null)(null)(null)WAITLIST VALXIT "[200](T$,4)"  (null)":[153][166]T)M3$:[142]
184 [139](KY$[178]"(null)"[176]KY$[178]"K")[167]Z[178]1:[142]
186 [139](KY$[178]"ATN"[176]KY$[178]"A")[167]Z[178]2:[142]
188 [139](KY$[178]"(null)"[176]KY$[178]"O")[167]Z[178]3:[142]
190 [139](KY$[178]"STR$"[176]KY$[178]"D")[167]Z[178]4:[142]
192 [139](KY$[178][199](13))[167]Z[178]5:[142]
194 Z[178]0:[142]
198 [143] GET KEY
202 [161]KY$:[139] KY$[178]"" [167]202
204 [142]
208 [143] DISK STATUS
212 [159]15,8,15:[132]15,E,E$,T,S:[160]15:[139] E$[178]"OK" [167] [142]
214 [153]"VALRROR:WAIT"E;E$;T;S"LIST":[141]386:[142]
218 [143] KOALA LOAD
222 [153]GH$:[141]318:[139] FK$[178]"" [167] [142]
224 [153]:[153]"(null)OADING...WAIT ATNWAIT"[201](F$,14):[158] 49653:[141]212:[142]
228 [143] LOAD ADV ART STUDIO
232 [153]GH$:[141]336:[139] FK$[178]"" [167] [142]
234 [141]450:[158]49770:[141]212:[142]
238 [143] LOAD OCP
242 [153]GH$:[141]354:[139] FK$[178]"" [167] [142]
244 [141]450:[158]49552:[141]212:[142]
248 [143] LOAD DOODLE!
252 [153]GH$:[141]372:[139] FK$[178]"" [167] [142]
254 [141]450:[158]49571:[141]212:[142]
258 [143] SAVE KOALA
262 [153]GH$:[141]318:[139] FK$[178]"" [167] [142]
264 [153]"(null)AVING...WAIT ATNWAIT"[201](F$,14):[158]49849:[141]212
266 [139]E$[178]"OK"[167][151]51135,1
268 [142]
272 [143] SAVE ADV. ART STUDIO
276 [153]GH$:[141]336:[139] FK$[178]""[167][142]
278 [153]"(null)AVING...WAIT "F$:[158]49874:[141]212
280 [139]E$[178]"OK"[167][151]51135,1
282 [142]
286 [143] SAVE OCP ART STUDIO
288 :
290 [153]GH$:[141]354:[139] FK$[178]"" [167] [142]
292 [153]"(null)AVING...WAIT "F$:[158]49802:[141]212
294 [139]E$[178]"OK"[167][151]51135,0
296 [142]
300 [143] SAVE DOODLE!
304 [153]GH$:[141]372:[139] FK$[178]"" [167] [142]
306 [153]"(null)AVING...WAIT "F$:[158]49824:[141]212
308 [139]E$[178]"OK"[167][151]51135,0
310 [142]
314 [143] KOALA FILENAME
318 F$[178]"":FK$[178]"":[153]"(null)LEASE VALNTER (null)OALA FILENAME."
320 [153]"(null)O NEED TO ENTER THE ATNWAIT CHARACTER.":[153]"VALXAMPLE: PIC A QUANTAS"
322 [141]388
324 Z$[178]"(null)OALA":[141]424:[139]FK$[178]""[167][142]
326 FK$[178]FK$[170]"              ":F$[178]"FOR"[170][200](FK$,14)
328 [141]390:[142]
332 [143] ADV. STUDIO FILENAME
336 F$[178]"":FK$[178]"":[153]"(null)LEASE VALNTER ATNDV. ATNRT (null)TUDIO FILENAME."
338 [153]"(null)O NEED TO ENTER THE MPICWAIT CHARACTERS.":[153]"VALXAMPLE: BABOON"
340 [141]388
342 Z$[178]"(null)(null)(null)STR$RIGHT$(null)":[141]424:[139]FK$[178]""[167][142]
344 FK$[178]FK$[170]"               ":F$[178][200](FK$,12)[170]"MPIC"
346 [141]390:[142]
350 [143] OCP STUDIO FILENAME
354 F$[178]"":FK$[178]"":[153]"(null)LEASE VALNTER (null)LEN(null) ATNRT (null)TUDIO FILENAME."
356 [153]"(null)O NEED TO ENTER THE PICWAIT CHARACTERS.":[153]"VALXAMPLE: FRONTCOVER"
358 [141]388
360 Z$[178]"(null)LEN(null)":[141]424:[139]FK$[178]""[167][142]
362 FK$[178]FK$[170]"               ":F$[178][200](FK$,13)[170]"PIC"
364 [141]390:[142]
368 [143] DOODLE FILENAME
372 F$[178]"":FK$[178]"":[153]"(null)LEASE VALNTER STR$OODLE! FILENAME."
374 [153]"(null)O NEED TO ENTER THE DDWAIT CHARACTERS.":[153]"VALXAMPLE: MONA LISA"
376 [141]388
378 Z$[178]"STR$(null)(null)STR$(null)VAL!":[141]424:[139]FK$[178]""[167][142]
380 F$[178]"DD"[170]FK$:[139][195](F$)[177]16[167]F$[178][200](F$,16)
382 [141]390:[142]
386 [153][166]7)"(null)RESS ANY KEY...WAITLIST":[141]202:[153]"LOAD";:[142]
388 [153]"(null)RESS (null)VAL(null)(null)(null)(null)WAIT ALONE TO ABORT.":[142]
390 L[178][195](F$):[151]51130,L
392 [129] I[178]0 [164] L[171]1 :[151]51113[170]I,[198]([202](F$,I[170]1,1)):[130]:[142]
394 [151]214,20:[153]:[153]"       SYS(null)UIT?  ATNRE YOU SURE (Y/N)?"
395 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]395
396 [139]A$[178]"N"[167]32
397 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
398 [139] ER[179][177]63 [167] [153]"LOAD":[128]
399 [151]56,160
400 A$[178]"HELLO CONNECT":Q$[178][199](34):[151]53281,7:[151]53280,7:[153]"LOAD"
401 [153]"SYSLOAD"Q$A$Q$",8"
402 [153]"RUN":[151]631,13:[151]632,13:[151]198,2:[162]
404 [153]"LOAD"
405 [153][163]10)"OPENLEN (null) (null)    ATN (null) (null) RIGHT$ (null) (null)"
406 [153]"CONT    ATN LENONVERSION (null)ROGRAM FOR THE 90'S"
407 [153][163]11)"PRINT(null)OADING "[199](34)"CONJOB.O"[199](34)
408 [151]214,15:[153]:[153]"  LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREPRINT#"
409 [129]I[178]1[164]3:[153]"                                      ":[130]
410 [153]"        (null)UBLISHED ON (null)(null)ATNSTR$(null)(null)ATN(null) #60     "
411 [153]"      (null)UBSCRIPTIONS 1-800-831-2694    "
412 [153]"     changingCLOSEthisCLOSEnoticeCLOSEisCLOSEillegal  "
414 [153]"                                      "
416 [153]"  POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS"
418 AU$[178]"LEN(null)(null) ATN(null)(null)RIGHT$(null)(null)":[151]214,17:[153]:[153][166]20[171][195](AU$)[173]2)"PRINT#"AU$
420 AU$[178]"BY STR$AVE (null)ATTHEWS  (LEN) 1989":[151]214,18:[153]
422 [153][166]20[171][195](AU$)[173]2)"PRINT#"AU$""
423 [142]
424 [153]Z$;" (null)AME: ";:FK$[178]""
426 A$[178]"":[153]"TOCMD";
428 [161]A$:[139]A$[178]""[167]426
430 Q[178][198](A$)
432 [139]A$[178]"."[176]A$[178]" "[167]446
434 [139](A$[177][178]"A"[175]A$[179][178]"Z")[167]446
436 [139](A$[177][178]"ATN"[175]A$[179][178]"(null)")[167]446
438 [139](A$[177][178]"0"[175]A$[179][178]"9")[167]446
440 [139]Q[178]13[167][153]" ":[142]
442 [139]Q[178]20[175][195](FK$)[177]0[167][153]"CMD  CMDCMD";:FK$[178][200](FK$,[195](FK$)[171]1)
444 [137]426
446 [139][195](FK$)[179]16[167]FK$[178]FK$[170]A$:[153]A$;
448 [137]426
450 [153]:[153]"   (null)OADING...WAIT "F$:[142]